object FormTicker: TFormTicker
  Left = 230
  Top = 157
  BorderIcons = []
  BorderStyle = bsToolWindow
  Caption = 'Ticker'
  ClientHeight = 363
  ClientWidth = 524
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = [fsBold]
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000888880000000000000000000000
    0000444448800000000000000000000000004FFFF48000000000000000000000
    000004FFF48000000000000000000000000004FFF48000000000000000000000
    000004FFF48800000000000000000000000004FFFF4800000000000000000000
    0000004FFF48000000000000000000000000004FFF4880000000000000000000
    0000004FFFF48888800000000000000000000004FFF444448880000000000000
    00000004FFFFFFFF448888000000000000000004FFFFFFFFFF44488000000000
    000000004FFF4444FFFFF48880000000000000004FFF4CCC44FFFF4488000000
    000000004FFF4EEECC4FFFFF48800000000000004FFFF4FFEEC44FFFF4800000
    0000000004FFF480FFECC4FFF48800000000000004FFF48800FEC4FFFF480FF0
    0000000004FFFF48000FEC4FFF4800EFF000000004FFFF48000FEC4FFF48000E
    EFFFF000004444400FFFEC4FFF48000CCCEEEEFFFFFFFFFFFEEEC4FFFF480000
    44CCCCCEEEEEEEEEECCC4FFFFF4000000444444CCCCCCCCCC444FFFFF4000000
    004FFFF4444444444FFFFFFF4000000000044FFFFFFFFFFFFFFFFF4400000000
    00000444FFFFFFFFFFF444000000000000000000444444444440000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    FFFFFF83FFFFFF01FFFFFF01FFFFFF81FFFFFF81FFFFFF80FFFFFF80FFFFFFC0
    FFFFFFC07FFFFFC007FFFFE001FFFFE0003FFFE0001FFFF00007FFF00003FFF0
    0001FFF00001FFF81000FFF80C009FF80E00C7F80E00E07C1800E0000000F000
    0001F8000003FC000007FE00000FFF80003FFFF001FFFFFFFFFFFFFFFFFF}
  KeyPreview = True
  Menu = MainMenu1
  OldCreateOrder = True
  Position = poScreenCenter
  Scaled = False
  OnKeyDown = FormKeyDown
  OnMouseMove = FormMouseMove
  PixelsPerInch = 120
  TextHeight = 14
  object Filter: TLabel
    Left = 60
    Top = 248
    Width = 57
    Height = 14
    Caption = 'Comma&nd'
    FocusControl = EditAction
  end
  object Label1: TLabel
    Left = 4
    Top = 248
    Width = 23
    Height = 14
    Caption = '&Tick'
    FocusControl = SpinTick
  end
  object Bevel2: TBevel
    Left = 404
    Top = 258
    Width = 117
    Height = 9
    Shape = bsTopLine
  end
  object Bevel3: TBevel
    Left = 4
    Top = 230
    Width = 400
    Height = 9
    Shape = bsTopLine
  end
  object Bevel4: TBevel
    Left = 391
    Top = 232
    Width = 13
    Height = 27
    Shape = bsRightLine
  end
  object BtnDone: TBitBtn
    Left = 412
    Top = 316
    Width = 109
    Height = 25
    Hint = 'Closes the ticker screen'
    Cancel = True
    Caption = '&Close'
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
      55555555555F5555555555555505555555555555557FF5555555555550005555
      555555555777F555555555550CC05555555555557F57FF55555555550CE00555
      5555555575577F5555555550CEEC05555555555755557FF55555550CECEC0055
      5555557F5FF577F55555550C00CEC0555555557F775F575F55555500550CE005
      555555775575F57F555555555550CC055555555555575F7FF555555555550C00
      5555555555557577FF555555555550C005555555555557577FF555555555550C
      005555555555557577FF555555555550C005555555555557577F555555555555
      0000555555555555777755555555555555555555555555555555}
    NumGlyphs = 2
    ParentShowHint = False
    ShowHint = False
    TabOrder = 5
    OnClick = BtnDoneClick
    OnMouseMove = FormMouseMove
  end
  object BtnHelp: TBitBtn
    Left = 4
    Top = 323
    Width = 18
    Height = 18
    Hint = 'Help!'
    Glyph.Data = {
      D6000000424DD60000000000000076000000280000000C0000000C0000000100
      0400000000006000000000000000000000001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888778888
      0000888880077888000088880BB07888000088880BB088880000888880077888
      000088880BB077880000888770BB077800008800770BB0780000880B0770B078
      0000880BB00BB08800008880BBBB088800008888000088880000}
    TabOrder = 6
    TabStop = False
    OnClick = BtnHelpClick
    OnMouseMove = FormMouseMove
  end
  object EditAction: TDBEdit
    Left = 60
    Top = 264
    Width = 239
    Height = 21
    Hint = 'Enter the command to be done on the ticker here'
    AutoSize = False
    DataField = 'ACTION'
    DataSource = DSTicker
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    MaxLength = 250
    ParentFont = False
    ParentShowHint = False
    ShowHint = False
    TabOrder = 3
    OnKeyPress = EditActionKeyPress
    OnMouseMove = FormMouseMove
  end
  object BtnAdd: TBitBtn
    Left = 4
    Top = 290
    Width = 125
    Height = 25
    Hint = 'Add the above ticker to the list of existing tickers'
    Caption = '&Add Ticker'
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
      55555555555FFFF55555555555000055555555555577775F5555555550222205
      5555555557F55F7F55555555502AA2055555555557F77F7F55555555502AA205
      5555555FF7F77F7FFFF55500002AA2000055557777577F77775F5022222AA222
      220557F5FFF77FFFFF7F502AAAAAAAAAA20557F7777777777F7F502AAAAAAAAA
      A20557F777777777757F5022222AA2222205575FFFF77F5FFF755500002AA200
      0055557777F77F7777555555502AA2055555555557F77F7F55555555502AA205
      5555555557F7757F555555555022220555555555575FFF755555555555000055
      5555555555777755555555555555555555555555555555555555}
    NumGlyphs = 2
    ParentShowHint = False
    ShowHint = False
    Spacing = 9
    TabOrder = 4
    OnClick = BtnAddClick
    OnMouseMove = FormMouseMove
  end
  object BtnDelete: TBitBtn
    Left = 409
    Top = 230
    Width = 112
    Height = 25
    Hint = 'Delete the currently selected ticker'
    Caption = '&Delete Ticker'
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
      5555555555555555555555555555555555555555555555555555555555555555
      5555555555555555555555555555555555555555555555555555555555555555
      5555555FFFFFFFFFFFF55500000000000055557777777777775F501111111111
      110557F5FFFFFFFFFF7F501999999999910557F7777777777F7F501999999999
      910557F777777777757F5011111111111105575FFFFFFFFFFF75550000000000
      0055557777777777775555555555555555555555555555555555555555555555
      5555555555555555555555555555555555555555555555555555555555555555
      5555555555555555555555555555555555555555555555555555}
    NumGlyphs = 2
    ParentShowHint = False
    ShowHint = False
    Spacing = 9
    TabOrder = 1
    OnClick = BtnDeleteClick
    OnMouseMove = FormMouseMove
  end
  object BtnTicker: TBitBtn
    Left = 299
    Top = 316
    Width = 110
    Height = 25
    Hint = 'Enable/disable the Ticker'
    Caption = 'Enable Tic&ker'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGreen
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    NumGlyphs = 2
    ParentFont = False
    ParentShowHint = False
    ShowHint = False
    Spacing = 9
    TabOrder = 7
    OnClick = BtnTickerClick
    OnMouseMove = FormMouseMove
  end
  object Panel1: TPanel
    Left = 0
    Top = 344
    Width = 524
    Height = 19
    Align = alBottom
    BevelInner = bvLowered
    BevelOuter = bvNone
    TabOrder = 8
    object Status: TLabel
      Left = 1
      Top = 1
      Width = 3
      Height = 14
      Align = alClient
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
  end
  object BtnAM: TBitBtn
    Tag = 2
    Left = 299
    Top = 263
    Width = 22
    Height = 22
    Hint = 'Grab an alias/macro (Ctrl+A)'
    Glyph.Data = {
      56010000424D560100000000000076000000280000001C0000000E0000000100
      040000000000E000000000000000000000001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888388
      83888888888F888F000088888888B388B3888888887F887F000088078888B383
      B3887F88887F8F7F000088807888B3B3B38887F8887F7F7F000088880788BBBB
      B388887F8877777F000088888078BB8BB3888887F877877F000081888107B888
      B88F888F7F7888780000918891807888887F887F87F888880000911191880788
      887FFF7F887F88880000999998888078887777788887F8880000891918888807
      8887F7F888887F88000089898888888088878788888887880000889188888888
      88887F8888888888000088988888888888887888888888880000}
    NumGlyphs = 2
    TabOrder = 9
    TabStop = False
    OnClick = BtnAMClick
    OnMouseMove = FormMouseMove
  end
  object BtnFunctions: TBitBtn
    Tag = 8
    Left = 321
    Top = 263
    Width = 22
    Height = 22
    Hint = 'Grab a function (Ctrl+F)'
    Glyph.Data = {
      E6000000424DE60000000000000076000000280000000E0000000E0000000100
      0400000000007000000000000000000000001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
      8800888888888888880080888888888888007808888088880800880788088888
      8000880788080880800088078808807880008807880887088000770788080880
      8000800078088888800088078880888808008807708888888800888008888888
      88008888888888888800}
    Spacing = -1
    TabOrder = 10
    TabStop = False
    OnClick = BtnFunctionsClick
    OnMouseMove = FormMouseMove
  end
  object BtnVar: TBitBtn
    Tag = 7
    Left = 343
    Top = 263
    Width = 22
    Height = 22
    Hint = 'Grab a variable (Ctrl+R)'
    Glyph.Data = {
      E6000000424DE60000000000000076000000280000000E0000000E0000000100
      0400000000007000000000000000000000001000000010000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
      77007777CCCCCCC77700777CEEEEEEEC770077CECCCCCCCEC7007CECCEECEECC
      77007CECECCEECEC77007CECECCCECCEC7007CECECCCECCEC7007CECCECCEECE
      C70077CECCEECECEC70077CEECCCCCEC7700777CCEEEEEC7770077777CCCCC77
      77007777777777777700}
    Spacing = -1
    TabOrder = 11
    TabStop = False
    OnClick = BtnVarClick
    OnMouseMove = FormMouseMove
  end
  object BtnClearCommand: TBitBtn
    Left = 364
    Top = 263
    Width = 22
    Height = 22
    Hint = 'Clears the command'
    Glyph.Data = {
      F6000000424DF60000000000000076000000280000000C000000100000000100
      0400000000008000000000000000000000001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
      00008888888888880000F888888888880000FFF8888888880000FFFFF8888888
      0000FFFFFFF888880000FFFFFF1178880000FF8FF1D997880000F888819D9778
      0000888887997337000088888877B333000088888883BB330000888888883BB3
      00008888888883BB000088888888883B00008888888888830000}
    ParentShowHint = False
    ShowHint = False
    Spacing = 9
    TabOrder = 12
    TabStop = False
    OnClick = BtnClearCommandClick
    OnMouseMove = FormMouseMove
  end
  object EditCopy: TEdit
    Left = 154
    Top = 303
    Width = 121
    Height = 22
    TabStop = False
    TabOrder = 13
    Visible = False
  end
  object GridTicker: TDBGrid
    Left = 4
    Top = 4
    Width = 516
    Height = 221
    Hint = 
      'Double-click an existing ticker action to copy its attributes be' +
      'low'
    DataSource = DSTicker
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ReadOnly = True
    ShowHint = False
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Arial'
    TitleFont.Style = [fsBold]
    OnDblClick = GridTickerDblClick
    OnMouseMove = FormMouseMove
    Columns = <
      item
        Expanded = False
        FieldName = 'ID'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'TICK'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ACTION'
        Width = 350
        Visible = True
      end>
  end
  object SpinTick: TJvDBSpinEdit
    Left = 4
    Top = 264
    Width = 51
    Height = 21
    Hint = 
      'When the Tick Counter reaches any multiple of this number, the T' +
      'ick Action will be performed'
    MaxValue = 3600.000000000000000000
    MinValue = 2.000000000000000000
    AutoSize = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnExit = SpinTickExit
    OnKeyPress = SpinTickKeyPress
    OnMouseMove = FormMouseMove
    DataField = 'TICK'
    DataSource = DSTicker
  end
  object MainMenu1: TMainMenu
    Left = 184
    Top = 132
    object Main1: TMenuItem
      Caption = 'Main'
      Visible = False
      object MenuHelp: TMenuItem
        Caption = 'Help'
        ShortCut = 112
        OnClick = BtnHelpClick
      end
      object Ctrla1: TMenuItem
        Tag = 999
        Caption = 'Ctrl+A'
        ShortCut = 16449
        OnClick = BtnAMClick
      end
      object CtrlR1: TMenuItem
        Tag = 999
        Caption = 'Ctrl+R'
        ShortCut = 16466
        OnClick = BtnVarClick
      end
      object CtrlF1: TMenuItem
        Caption = 'Ctrl+F'
        ShortCut = 16454
        OnClick = BtnFunctionsClick
      end
    end
  end
  object DSTicker: TDataSource
    DataSet = Datawell.TableTicker
    Left = 240
    Top = 132
  end
end
